home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 October / 64er_Magazin_85-10_1985_Markt__Technik_de.d64 / cursus latinus (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  16KB  |  619 lines
  1. 10 dimmn$(12),wo$(99,6),wo(99),wt$(10,10)
  2. 100 rem ************************
  3. 110 rem *                      *
  4. 120 rem *  - cursus latinus -  *
  5. 130 rem *                      *
  6. 140 rem *    (c) maerz 1985    *
  7. 150 rem *                      *
  8. 160 rem *  bernd kraus         *
  9. 170 rem *  am waldschwimmbad 2 *
  10. 180 rem *  6909 walldorf/bd.   *
  11. 190 rem *  tel.: 06227/2982    *
  12. 200 rem *                      *
  13. 210 rem *  fuer c=64 + c=1541  *
  14. 220 rem *  evtl. mps 801       *
  15. 230 rem *                      *
  16. 240 rem ************************
  17. 250 :
  18. 260 rem **
  19. 270 rem ** variablen
  20. 280 rem **
  21. 290 :
  22. 300 print"[147]";:poke53280,6:poke53281,6
  23. 310 t1$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 320 t2$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  25. 330 t3$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  26. 340 t4$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  27. 350 t5$="[221][221]                                    [221][221]"
  28. 360 t6$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][174][176][192][192][174][176][192][192][178][192][192][192][192][192][192][174][221]"
  29. 370 t7$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][221][221][160][160][221][221][160][160][221][160][160][160][160][160][160][221][221]"
  30. 380 t8$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][189][173][192][192][189][173][192][192][177][192][192][192][192][192][192][189][221]"
  31. 390 t9$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  32. 400 ta$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
  33. 410 tb$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  34. 420 tc$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][174][176][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  35. 430 td$="[221][221]   [155]richtig   [221]   [221][221]   [221]   [155]falsch    [221][221]"
  36. 440 te$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][189][173][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  37. 450 tf$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174][221]"
  38. 460 tg$="[221][221][155][215]ortart    [221][221][154][206]om[221][154][193]dj[221][154][193]dv[221][154][214]er[221][154][196]ep[221][154][211]em[221][221]"
  39. 470 th$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189][221]"
  40. 480 tj$="[221][176][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
  41. 490 tk$="[221][221][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
  42. 500 tl$="[221][173][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
  43. 510 tm$="[221]                                      [221]"
  44. 520 tn$="[221][171][192][192][192][192][192][192][192][192][192][192][192][179][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
  45. 530 tu$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174]             [176][192][192][192][174][176][192][192][192][192][192][174][221]"
  46. 540 tp$="[221][221][160][160][155]richtig[160][160][221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
  47. 550 tq$="[221][221]  [155]falsch   [221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
  48. 560 tr$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][160][160][160][160][160][160][160][160][160][160][160][160][160][173][192][192][192][189][173][192][192][192][192][192][189][221]"
  49. 570 tt$="[221][221][155][193]bfragen                    [197]rgebnis[221][221]"
  50. 580 wt$(1,0)="[206]omen":wt$(1,1)="[215]ort":wt$(1,2)="[199]enetiv":wt$(1,3)="[199]enus"
  51. 590 wt$(1,4)="[194]edeutung 1":wt$(1,5)="[194]edeutung 2":wt$(1,6)="[194]edeutung 3"
  52. 600 wt$(2,0)="[193]djektiv":wt$(2,1)="[215]ort":wt$(2,2)="[198]eminin":wt$(2,3)="[206]eutrum"
  53. 610 wt$(3,0)="[193]dverb":wt$(3,1)="[215]ort"
  54. 620 wt$(4,0)="[214]erb":wt$(4,1)="[215]ort":wt$(4,2)="[211]tammform 1"
  55. 630 wt$(4,3)="[211]tammform 2":wt$(4,4)="[211]tammform 3":wt$(4,5)=wt$(1,4)
  56. 640 wt$(4,6)=wt$(1,5):wt$(5,0)="[196]eponens":wt$(5,1)="[215]ort":wt$(5,2)=wt$(4,2)
  57. 650 wt$(5,3)=wt$(4,3):wt$(6,0)="[211]emidep.":fori=1to3:wt$(6,i)=wt$(5,i):next
  58. 660 fori=2to6:ifi=4then680
  59. 670 wt$(i,4)=wt$(1,4):wt$(i,5)=wt$(1,5):wt$(i,6)=wt$(1,6)
  60. 680 next
  61. 700 mn$(1)="[200][193][213][208][212][205][197][206][213][197]":mn$(2)="[197]ditieren":mn$(3)="[193]bfragen":mn$(4)="[196]iskette"
  62. 710 mn$(5)="[196]rucken":mn$(6)="[197]nde":mn$(7)="[197]ingabe":mn$(8)="[214]erbessern"
  63. 720 mn$(9)="[204]oeschen":mn$(10)="[197]infuegen":mn$(11)="[204]aden":mn$(12)="[211]peichern"
  64. 730 dd$=""
  65. 740 ff$(0)="  ":ff$(1)="[154]f1[155]":ff$(2)="[154]f3[155]":ff$(3)="[154]f5[155]":ff$(4)="[154]f7[155]"
  66. 750 ff$(5)="[154]f8[155]":nr=0:nr$="00":in$="00"
  67. 760 ll$="":fori=1to36:ll$=ll$+" ":next:ll$=ll$+"":fori=1to36
  68. 770 ll$=ll$+" ":next:ba=53265:si=54272:pokesi+24,15
  69. 780 wa$(1)="([206]om.)":wa$(2)="([193]dj.)":wa$(3)="([193]dv.)":wa$(4)="([214]erb)"
  70. 790 wa$(5)="([196]ep.)":wa$(6)="([211]em.)"
  71. 800 fori=1to80:sp$=sp$+"[192]":next
  72. 810 :
  73. 820 :
  74. 830 rem **
  75. 840 rem ** hauptmenue
  76. 850 rem **
  77. 860 :
  78. 870 pokeba,11
  79. 880 print"[147]";t1$t3$t5$t5$t4$t3$t5$t4$;:fori=1to5:printtj$tk$tl$;:next
  80. 890 printtm$t2$;:poke2023,125
  81. 900 print"[155]";:fori=1to6
  82. 910 printleft$(dd$,4+i*3);
  83. 920 printspc(2);ff$(i-1);spc(34-len(mn$(i)));mn$(i);:next
  84. 930 print"           [195][213][210][211][213][211][160][204][193][212][201][206][213][211]"
  85. 940 print"[145][155]      von [194]ernd [203]raus ([195]) 1985":pokeba,27
  86. 950 geta$:ifa$=""then950
  87. 960 ifa$="[133]"then1040
  88. 970 ifa$="[134]"then2490
  89. 980 ifa$="[135]"then3760
  90. 990 ifa$="[136]"then4670
  91. 1000 ifa$="[140]"thenprint"[147]";:end
  92. 1010 goto940
  93. 1020 :
  94. 1030 :
  95. 1040 rem **
  96. 1050 rem ** editieren
  97. 1060 rem **
  98. 1070 :
  99. 1080 pokeba,11
  100. 1090 print"[147]";t1$t3$t5$t5$t4$t6$t7$t8$t9$;:fori=1to5:printta$tn$;:next
  101. 1100 printta$tb$tf$tg$th$t2$;:poke2023,125:wx=nr:gosub5440:nr$=wx$:print"[155]";
  102. 1110 printleft$(dd$,7)""mn$(2)"  "tab(25)nr$tab(29)in$tab(32)wo$(nr,0)
  103. 1120 printleft$(dd$,7)spc(15)wt$(wo(nr),0):fori=1to6
  104. 1130 printleft$(dd$,8+2*i)""wt$(wo(nr),i):printleft$(dd$,8+2*i)spc(16);
  105. 1140 printwo$(nr,i):next
  106. 1150 print"[154] 1 [146][155] [197]ingabe   [154] 2 [146][155] [214]erbessern   [154] f8 [146][155]"
  107. 1160 print"[154] 3 [146][155] [204]oeschen  [154] 4 [155][146] [197]infuegen    [201]nfo"
  108. 1170 pokeba,27
  109. 1180 geta$:ifa$=""then1180
  110. 1190 ifa$="1"then1320
  111. 1200 ifa$="2"then1550
  112. 1210 ifa$="3"then1640
  113. 1220 ifa$="4"then1780
  114. 1230 ifa$="[133]"then1920
  115. 1240 ifa$="[134]"then2020
  116. 1250 ifa$="[135]"then1870
  117. 1260 ifa$="[136]"then1970
  118. 1270 ifa$="+"ora$="-"then2070
  119. 1280 ifa$="[140]"then2160
  120. 1290 ifa$="_"then830
  121. 1300 goto1180
  122. 1310 :
  123. 1320 rem ** eingabe
  124. 1330 ifq1>99then2400
  125. 1340 goto1510
  126. 1350 printll$"[215]ortart mit [154] < [146][155] und [154] > [146][155] waehlen"
  127. 1360 print"[154] [210]eturn [146][155]: [197]nde der [197]ingabe"
  128. 1370 ifet=1thenprintleft$(dd$,7)""mn$(8):goto1590
  129. 1380 ifet=2thenprintleft$(dd$,7)""mn$(10)"  ":goto1400
  130. 1390 printleft$(dd$,7)""mn$(7)"    "
  131. 1400 gosub5480
  132. 1410 printleft$(dd$,7)spc(15)wt$(aw,0)
  133. 1420 fori=1to6:printleft$(dd$,8+2*i)""wt$(aw,i):next:wo(q1)=aw
  134. 1430 printll$"[215]ort eingeben"
  135. 1440 gosub5590
  136. 1450 remifet=1thenreturn
  137. 1460 ifet=0thenq1=q1+1
  138. 1470 fori=1to6:zz$(i)="":zz(i)=0:next
  139. 1480 ifet<>0thenreturn
  140. 1490 nr=q1-1:goto1040
  141. 1500 :
  142. 1510 print""left$(dd$,7)t7$;:fori=1to6:printleft$(dd$,8+2*i)ta$;:next
  143. 1520 printleft$(dd$,7)spc(25);:wx=q1:gosub5440:print"[155]"wx$;"[155]"in$
  144. 1530 goto1350
  145. 1540 :
  146. 1550 rem ** verbessern
  147. 1560 ifq1=0then1180
  148. 1570 et=1:q2=q1:q1=nr:gosub1320
  149. 1580 q1=q2:nr=q1-1:et=0:goto1040
  150. 1590 zz$(0)=wo$(q1,0):zz(0)=len(zz$(0)):printleft$(dd$,7)spc(32)zz$(0);
  151. 1600 fori=1to6:zz$(i)=wo$(q1,i):zz(i)=len(zz$(i)):printleft$(dd$,8+2*i);
  152. 1610 printspc(16)zz$(i);:next
  153. 1620 goto1400
  154. 1630 :
  155. 1640 rem ** loeschen
  156. 1650 ifq1=0then1180
  157. 1660 printleft$(dd$,7)""mn$(9)"   "
  158. 1670 printll$"[196]atensatz wird geloescht."
  159. 1680 ifnr=q1-1then1740
  160. 1690 fori=nrtoq1-2:forj=0to6
  161. 1700 wo$(i,j)=wo$(i+1,j):next:wo(i+1)=wo(i):next
  162. 1710 q1=q1-1:ifq1=-1thenq1=0
  163. 1720 nr=nr-1:ifnr=-1thennr=0
  164. 1730 goto1040
  165. 1740 fori=0to6:wo$(nr,i)="":next:wo(nr)=0
  166. 1750 q1=q1-1:nr=nr-1:ifnr=-1thennr=0
  167. 1760 goto1040
  168. 1770 :
  169. 1780 rem ** einfuegen
  170. 1790 ifq1>99then2400
  171. 1800 ifq1=0then1180
  172. 1810 printleft$(dd$,7)""mn$(10)"  "
  173. 1820 fori=q1tonr+1step-1:forj=0to6
  174. 1830 wo$(i,j)=wo$(i-1,j):next:wo(i)=wo(i-1):next
  175. 1840 q2=q1:q1=nr:et=2:gosub1320:et=0:nr=q1:q1=q2:q1=q1+1
  176. 1850 goto1040
  177. 1860 :
  178. 1870 rem ** blaettern vor
  179. 1880 ifq1=0then1040
  180. 1890 nr=nr+1:ifnr>q1-1ornr>99thennr=0:goto1040
  181. 1900 goto1040
  182. 1910 :
  183. 1920 rem ** blaettern 10 vor
  184. 1930 ifq1<10then1040
  185. 1940 nr=nr+10:ifnr>q1-1ornr>99thennr=0:goto1040
  186. 1950 goto1040
  187. 1960 :
  188. 1970 rem ** blaettern zurueck
  189. 1980 ifq1=0then1040
  190. 1990 nr=nr-1:ifnr<0thennr=q1-1:goto1040
  191. 2000 goto1040
  192. 2010 :
  193. 2020 rem ** blaettern 10 zurueck
  194. 2030 ifq1<10then1040
  195. 2040 nr=nr-10:ifnr<0thennr=q1-1:goto1040
  196. 2050 goto1040
  197. 2060 :
  198. 2070 rem ** gesammtindex
  199. 2080 i1=val(left$(in$,1)):i2=val(right$(in$,1))
  200. 2090 ifa$="+"theni1=i1+1:ifi1>9theni1=0
  201. 2100 ifa$="-"theni2=i2+1:ifi2>9theni2=0
  202. 2110 wx=i1*10+i2:gosub5440:in$=wx$
  203. 2120 printleft$(dd$,7)spc(29)in$
  204. 2130 ifes=1thengoto6130
  205. 2140 goto1180
  206. 2150 :
  207. 2160 rem ** info **
  208. 2170 gosub6180
  209. 2180 print"[155]*  [201]nformationen zum [208]rogrammteil  *"
  210. 2190 print"[145]             [197][196][201][212][201][197][210][197][206][155]"
  211. 2200 printleft$(dd$,7)" [154] _ [155] [200]auptmenue"
  212. 2210 printleft$(dd$,8)"[154] f1 [155] [194]laettern 1[207] [197]inheiten vor"
  213. 2220 printleft$(dd$,9)"[154] f3 [155] [194]laettern 1[207] [197]inheiten zurueck"
  214. 2230 printleft$(dd$,10)"[154] f5 [155] [194]laettern 1 [197]inheit vor"
  215. 2240 printleft$(dd$,11)"[154] f7 [155] [194]laettern 1 [197]inheit zurueck"
  216. 2250 printleft$(dd$,12)" [154] + [155] [200]auptindex um 1[207] erhoehen"
  217. 2260 printleft$(dd$,13)" [154] - [155] [200]auptindex um 1 erhoehen"
  218. 2270 printleft$(dd$,14)" [221][155][194]eim [204]oeschen/[197]infuegen wird die[221][155]"
  219. 2280 printleft$(dd$,15)" [221][155]angewaehlte [206]ummer gel./eingef.[160][221][155]"
  220. 2290 printleft$(dd$,17)"[197]ingabe/[214]erbessern:[155]"
  221. 2300 printleft$(dd$,18)"[154] f1 [155]     [197]ingabe beendet"
  222. 2310 printleft$(dd$,19)"[154] f3 [155]     [193]lle [218]eilen loeschen"
  223. 2320 printleft$(dd$,20)"[154] [200]ome [155]   [218]eile loeschen"
  224. 2330 printleft$(dd$,21)"[154] [210]et [155]    [218]eile weiter"
  225. 2340 printleft$(dd$,22)"[154] [211]f-[210]et [155] [218]eile hoch"
  226. 2350 printleft$(dd$,23)"                    <[212]aste druecken>"
  227. 2360 pokeba,27
  228. 2370 geta$:ifa$=""then2370
  229. 2380 goto1040
  230. 2390 :
  231. 2400 rem ** ueberlauf
  232. 2410 printll$"[218]u viele [196]aten im [211]peicher!"
  233. 2420 print"[145] < [212]aste druecken >"
  234. 2430 tt=12:gosub6250
  235. 2440 geta$:ifa$=""then2440
  236. 2450 pokesi+4,0
  237. 2460 goto1040
  238. 2470 :
  239. 2480 :
  240. 2490 rem **
  241. 2500 rem ** abfragen
  242. 2510 rem **
  243. 2520 :
  244. 2530 pokeba,11:zf=0:r0=0:f0=0:r1=0:f1=0
  245. 2540 print"[147]";t1$t3$t5$t5$t4$t6$t7$t8$t9$;:fori=i=1to4:printta$tn$;:next
  246. 2550 printta$tb$tc$td$te$t2$;:poke2023,125
  247. 2560 printleft$(dd$,7)"[155]"mn$(3)"   "
  248. 2570 pokeba,27
  249. 2580 ifq1=0then3450
  250. 2590 ifer<>1thenuw$=""
  251. 2600 ifer=1thener=0:zf=2:zf$=uw$:uw$="":goto2700
  252. 2610 print"[154] 1 [146][155] [193]bfragen in der [210]eihenfolge [154] f8 "
  253. 2620 print"[145] 2 [146][155] [218]ufaellige [210]eihenfolge      [201]nfo"
  254. 2630 geta$:ifa$=""then2630
  255. 2640 ifa$="1"thenzf=1:goto2690
  256. 2650 ifa$="2"thenzf=2:goto2690
  257. 2660 ifa$="_"then830
  258. 2670 ifa$="[140]"then3540
  259. 2680 goto2630
  260. 2690 zf$="":fori=0toq1-1:zf$=zf$+chr$(i+32):next
  261. 2700 forhs=0tolen(zf$)-1:printll$:rf=0:r0=0:f0=0
  262. 2710 ifzf=1thennr=hs:goto2760
  263. 2720 rd%=rnd(1)*(len(zf$)-1)+1
  264. 2730 nr=asc(mid$(zf$,rd%))-32
  265. 2740 ifrd%=1thenzf$=right$(zf$,len(zf$)-rd%):goto2760
  266. 2750 zf$=left$(zf$,rd%-1)+right$(zf$,len(zf$)-rd%)
  267. 2760 printleft$(dd$,7)spc(15)"        ":wx=nr:gosub5440:nr$=wx$
  268. 2770 printleft$(dd$,7)spc(15)wt$(wo(nr),0):printleft$(dd$,7)spc(25)nr$
  269. 2780 forj=1to6:aa$=left$(dd$,8+2*j):printaa$"           "
  270. 2790 printaa$""wt$(wo(nr),j);
  271. 2800 printaa$spc(15)"                     "
  272. 2810 next
  273. 2820 printleft$(dd$,10)spc(16)""wo$(nr,1)"[155]"
  274. 2830 printleft$(dd$,23)"   richtig   "tab(25)"   falsch    "
  275. 2840 es=2:gosub5590:es=0
  276. 2850 ifwo(nr)=3then2930
  277. 2860 er=0:ifwo(nr)=2thener=1
  278. 2870 forj=2to3+er
  279. 2880 ifwo$(nr,j)=""then2920
  280. 2890 ifzz$(j)=wo$(nr,j)thenr0=r0+1:goto2910
  281. 2900 f0=f0+1
  282. 2910 rf=rf+1
  283. 2920 next
  284. 2930 ifer=1then3200
  285. 2940 mx=3:forj=4to6
  286. 2950 m(j)=0:w$=wo$(nr,j):ifw$=""thenmx=mx-1:goto2980
  287. 2960 ifw$=zz$(4)orw$=zz$(5)orw$=zz$(6)thenm(j)=1
  288. 2970 rf=rf+1
  289. 2980 next
  290. 2990 r2=m(4)+m(5)+m(6):f0=f0+mx-r2:r0=r0+r2
  291. 3000 ifrf<>r0thenuw$=uw$+chr$(nr+32)
  292. 3010 ifr0=0thenprintll$"[215]ort nicht gewusst.":goto3050
  293. 3020 ifrf<>r0thenprintll$"[215]ort unvollstaendig gewusst.":goto3050
  294. 3030 printll$"[215]ort gewusst.":printleft$(dd$,23)"   richtig   [146]";
  295. 3040 tt=35:gosub6250:r1=r1+r0:goto3120
  296. 3050 printleft$(dd$,23)tab(25)"   falsch    [146]";:gosub6270
  297. 3060 fork=1to300:next
  298. 3070 printll$"[210]ichtig lautet es:"
  299. 3080 forj=2to6:printleft$(dd$,8+2*j)spc(15)"                     "
  300. 3090 printleft$(dd$,8+2*j)spc(16)wo$(nr,j)
  301. 3100 next
  302. 3110 r1=r1+r0:f1=f1+f0
  303. 3120 wx=r1:gosub5400:r1$=wx$:wx=f1:gosub5400:f1$=wx$
  304. 3130 printleft$(dd$,23)tab(16)""r1$tab(21)f1$"[155]"
  305. 3140 print" < [212]aste druecken >"
  306. 3150 geta$:ifa$=""then3150
  307. 3160 pokesi+4,0
  308. 3170 ifa$="_"thenfori=0to6:zz$(i)="":zz(i)=0:next:goto830
  309. 3180 forj=2to6:zz$(j)="":zz(j)=0:next
  310. 3190 next:goto3280
  311. 3200 mx=2:forj=5to6
  312. 3210 m(j)=0::w$=wo$(nr,j):ifw$=""thenmx=mx-1:goto3240
  313. 3220 ifw$=zz$(5)orw$=zz$(6)thenm(j)=1
  314. 3230 rf=rf+1
  315. 3240 next
  316. 3250 r2=m(5)+m(6):f0=f0+mx-r2:r0=r0+r2
  317. 3260 goto3000
  318. 3270 :
  319. 3280 rem ** ergebnis
  320. 3290 pokeba,11
  321. 3300 print"[147]"t1$t3$t5$t5$t4$t3$tt$t4$tm$tm$tm$tu$tp$tr$tu$tq$tr$;
  322. 3310 printtm$tm$tm$tm$t3$t5$t4$t2$;:poke2023,125
  323. 3320 print"[154] 1 [146][155] alle nicht gew. [214]ok. wiederholen"
  324. 3330 print"[145][154] 2 [146][155] alle [214]ok. wiederholen  [154] _ [146][155] [205]enue"
  325. 3340 rf=r1+f1:rr=int(r1/rf*100+.5):ff=100-rr
  326. 3350 wx=rr:gosub5400:rr$=wx$:wx=ff:gosub5400:ff$=wx$
  327. 3360 printleft$(dd$,13)spc(28)r1$""rr$" %"
  328. 3370 printleft$(dd$,16)spc(28)f1$""ff$"[160]%"
  329. 3380 pokeba,27
  330. 3390 geta$:ifa$=""then3390
  331. 3400 ifa$="_"then830
  332. 3410 ifa$="1"theniff1<>0thener=1:goto2530
  333. 3420 ifa$="2"then2530
  334. 3430 goto3390
  335. 3440 :
  336. 3450 rem ** keine vokabeln
  337. 3460 printll$"[203]eine [214]okabeln im [211]peicher."
  338. 3470 print"[145]< [212]aste druecken >"
  339. 3480 tt=12:gosub6250
  340. 3490 geta$:ifa$=""then3490
  341. 3500 pokesi+4,0
  342. 3510 goto830
  343. 3520 :
  344. 3530 rem ** info
  345. 3540 gosub6180
  346. 3550 print"[155]*  [201]nformationen zum [208]rogrammteil  *"
  347. 3560 print"[145]              [193][194][198][210][193][199][197][206][155]"
  348. 3570 printleft$(dd$,8)"[197]ingabe[155]"
  349. 3580 printleft$(dd$,9)"[154] f1 [155]     [197]ingabe beendet"
  350. 3590 printleft$(dd$,10)"[154] f3 [155]     [193]lle [218]eilen loeschen"
  351. 3600 printleft$(dd$,11)"[154] [200]ome [155]   [218]eile loeschen"
  352. 3610 printleft$(dd$,12)"[154] [210]et [155]    [218]eile weiter"
  353. 3620 printleft$(dd$,13)"[154] [211]f-[210]et [155] [218]eile hoch"
  354. 3630 printleft$(dd$,14)"[154] _ [155]      [193]bfrage beenden"
  355. 3640 printleft$(dd$,16)"[193]uswahl[155]"
  356. 3650 printleft$(dd$,17)"[154] 1 [155] [198]raegt alle [214]okabeln der [210]eihen-"
  357. 3660 printleft$(dd$,18)"    folge nach ab."
  358. 3670 printleft$(dd$,19)"[154] 2 [155] [215]aehlt eine zufaellige [210]eihen-"
  359. 3680 printleft$(dd$,20)"    folge."
  360. 3690 printleft$(dd$,21)"[154] _ [155] [200]auptmenue"
  361. 3700 printleft$(dd$,23)"                    <[212]aste druecken>"
  362. 3710 pokeba,27
  363. 3720 geta$:ifa$=""then3720
  364. 3730 goto2490
  365. 3740 :
  366. 3750 :
  367. 3760 rem **
  368. 3770 rem ** diskette
  369. 3780 rem **
  370. 3790 :
  371. 3800 pokeba,11
  372. 3810 print"[147]"t1$t3$t5$t5$t4$t6$t7$t8$t9$ta$tb$;:fori=1to10:printtm$;:next
  373. 3820 printt3$t5$t4$t2$;:poke2023,125
  374. 3830 printleft$(dd$,7)"[155]"mn$(4)"   "tab(29)in$
  375. 3840 printleft$(dd$,10)"[198]ilename:"fl$
  376. 3850 printleft$(dd$,23)"00, ok,00,00"
  377. 3860 printll$"[154] 1 [155][146] [204]aden   [154] 2 [155][146] [211]peichern       [154] _ [155][146]"
  378. 3870 print"[154] 3 [155][146] [204]aden naechster [201]ndex      [205]enue"
  379. 3880 pokeba,27
  380. 3890 geta$:ifa$=""then3890
  381. 3900 ifa$="_"then830
  382. 3910 ifa$="1"then3960
  383. 3920 ifa$="2"then4200
  384. 3930 ifa$="3"then4440
  385. 3940 goto3890
  386. 3950 :
  387. 3960 rem ** laden
  388. 3970 gosub6070
  389. 3980 iffl$=""then3800
  390. 3990 open1,8,2,fl$+"."+in$+",s,r"
  391. 4000 open2,8,15
  392. 4010 input#1,q1
  393. 4020 ifst=66then4550
  394. 4030 fori=0toq1-1
  395. 4040 forj=0to6
  396. 4050 input#1,wo$(i,j)
  397. 4060 ifwo$(i,j)="[166]"thenwo$(i,j)=""
  398. 4070 ifst=66then4550
  399. 4080 next
  400. 4090 input#1,wo(i)
  401. 4100 ifst=66then4550
  402. 4110 next
  403. 4120 close2:close1
  404. 4130 printll$"[196]aten sind geladen."
  405. 4140 tt=45:gosub6250
  406. 4150 print"[145] < [212]aste druecken >"
  407. 4160 geta$:ifa$=""then4160
  408. 4170 pokesi+4,0
  409. 4180 goto830
  410. 4190 :
  411. 4200 rem ** speichern
  412. 4210 ifq1=0then3450
  413. 4220 gosub6070:iffl$=""then3800
  414. 4230 open1,8,2,fl$+"."+in$+",s,w"
  415. 4240 open2,8,15
  416. 4250 print#1,q1
  417. 4260 ifst=66then4550
  418. 4270 fori=0toq1-1
  419. 4280 forj=0to6
  420. 4290 ifwo$(i,j)=""thenprint#1,"[166]":goto4310
  421. 4300 print#1,wo$(i,j)
  422. 4310 ifst=66then4550
  423. 4320 next
  424. 4330 print#1,wo(i)
  425. 4340 ifst=66then4550
  426. 4350 next
  427. 4360 close2:close1
  428. 4370 printll$"[196]aten sind abgespeichert."
  429. 4380 print"[145] < [212]aste druecken >"
  430. 4390 tt=45:gosub6250
  431. 4400 geta$:ifa$=""then4400
  432. 4410 pokesi+4,0
  433. 4420 goto830
  434. 4430 :
  435. 4440 rem ** laden naechster index
  436. 4450 iffl$<>""then4510
  437. 4460 printll$"[203]eine [199]runddatei vorhanden."
  438. 4470 print"[145]< [212]aste druecken >"
  439. 4480 tt=12:gosub6250
  440. 4490 geta$:ifa$=""then4490
  441. 4500 pokesi+4,0:goto3860
  442. 4510 in=val(in$):in=in+1:ifin>99thenin=0
  443. 4520 wx=in:gosub5440:in$=wx$
  444. 4530 printleft$(dd$,7)spc(29)in$:goto3990
  445. 4540 :
  446. 4550 rem ** diskerror
  447. 4560 ds$=""
  448. 4570 get#2,a$:ds$=ds$+a$:ifst<>64then4570
  449. 4580 printleft$(dd$,23)"";:fori=1to36:print" ";:next
  450. 4590 printleft$(dd$,23)""ds$;
  451. 4600 close2:close1
  452. 4610 printll$"[196]iskerror"
  453. 4620 print"[145][160]< [212]aste druecken >"
  454. 4630 geta$:ifa$=""then4630
  455. 4640 goto3800
  456. 4650 :
  457. 4660 :
  458. 4670 rem **
  459. 4680 rem ** drucken
  460. 4690 rem **
  461. 4700 :
  462. 4710 pokeba,11
  463. 4720 print"[147]"t1$t3$t5$t5$t4$t6$t7$t8$t9$ta$tb$;:fori=1to10:printtm$;:next
  464. 4730 printt3$t5$t4$t2$;:poke2023,125
  465. 4740 printleft$(dd$,7)"[155]"mn$(5)"    ";
  466. 4750 printleft$(dd$,10)"[196]rucktitel:"
  467. 4760 print"[154] 1 [146][155] [196]rucken"
  468. 4770 print"[145][154] _ [146][155] [205]enue"
  469. 4780 pokeba,27
  470. 4790 ifq1=0then3450
  471. 4800 geta$:ifa$=""then4800
  472. 4810 ifa$="_"then830
  473. 4820 ifa$="1"then4840
  474. 4830 goto4800
  475. 4840 printll$"[155][196]rucktitel eingeben."
  476. 4850 es=7:gosub5920:es=0
  477. 4860 iffl$=""then830
  478. 4870 printll$"[155][193]bbruch mit [154] [211]hift [204]ock [146][155]"
  479. 4880 open1,4,7
  480. 4890 print#1,chr$(14)fl$chr$(15)
  481. 4900 print#1,sp$:print#1
  482. 4910 i=-1
  483. 4920 i=i+1:ifi=q1then5090
  484. 4930 wx=i:gosub5440:ii$=wx$
  485. 4940 print#1,ii$;" ";wo$(i,0)+left$("      ",6-len(wo$(i,0)));" ";
  486. 4950 print#1,wo$(i,1);
  487. 4960 ifwo(i)=4then5110
  488. 4970 ifwo(i)=5orwo(i)=6then5180
  489. 4980 ifwo$(i,2)<>""thenprint#1,"; "wo$(i,2);
  490. 4990 ifwo$(i,3)<>""thenprint#1,"; "wo$(i,3);
  491. 5000 print#1
  492. 5010 print#1,"  ";wa$(wo(i));"  ";
  493. 5020 print#1,wo$(i,4);
  494. 5030 ifwo$(i,5)<>""thenprint#1,"; "wo$(i,5);
  495. 5040 ifwo$(i,6)<>""thenprint#1,"; "wo$(i,6);
  496. 5050 print#1
  497. 5060 print#1
  498. 5070 ifpeek(653)=0then4920
  499. 5080 goto5230
  500. 5090 print#1:print#1:close1
  501. 5100 goto5280
  502. 5110 print#1
  503. 5120 print#1,"  "wa$(4)"  ";
  504. 5130 print#1,wo$(i,2);"; "wo$(i,3)"; "wo$(i,4);
  505. 5140 print#1
  506. 5150 print#1,spc(10);wo$(i,5);
  507. 5160 ifwo$(i,6)<>""thenprint#1,"; "wo$(i,6);
  508. 5170 goto5050
  509. 5180 print#1
  510. 5190 print#1,"  ";wa$(wo(i));"  ";
  511. 5200 print#1,wo$(i,2);
  512. 5210 ifwo$(i,3)<>""thenprint#1,"; ";wo$(i,3);
  513. 5220 print#1:print#1,spc(10);:goto5020
  514. 5230 printll$"[155][193]bbruch":print"[145]< [212]aste druecken[160]>"
  515. 5240 tt=12:gosub6250
  516. 5250 geta$:ifa$=""then5250
  517. 5260 pokesi+4,0
  518. 5270 goto4670
  519. 5280 printll$"[198]ertig."
  520. 5290 print"[145]< [212]aste druecken >"
  521. 5300 tt=45:gosub6250
  522. 5310 geta$:ifa$=""then5310
  523. 5320 pokesi+4,0
  524. 5330 goto4670
  525. 5340 :
  526. 5350 :
  527. 5360 rem **
  528. 5370 rem ** unterprogramme
  529. 5380 rem **
  530. 5390 :
  531. 5400 rem ** umrechnung zahl-using(3)
  532. 5410 wx$=str$(wx):lw=len(wx$):wx$=right$(wx$,lw-1):wx$=left$("  ",4-lw)+wx$
  533. 5420 return
  534. 5430 :
  535. 5440 rem ** umrechnung zahl-using(2)
  536. 5450 wx$=str$(wx):lw=len(wx$):wx$=right$(wx$,lw-1):wx$=left$("0",3-lw)+wx$
  537. 5460 return
  538. 5470 :
  539. 5480 rem ** wahl der wortart
  540. 5490 ps=56187:aw=1
  541. 5500 pa=ps+aw*4:pokepa,1:pokepa+1,1:pokepa+2,1
  542. 5510 geta$:ifa$=""then5510
  543. 5520 ifa$<>","anda$<>"."anda$<>chr$(13)then5510
  544. 5530 pokepa,14:pokepa+1,14:pokepa+2,14
  545. 5540 ifa$=chr$(13)thenreturn
  546. 5550 ifa$=","thenaw=aw-1:ifaw=0thenaw=6
  547. 5560 ifa$="."thenaw=aw+1:ifaw=7thenaw=1
  548. 5570 goto5500
  549. 5580 :
  550. 5590 rem ** eingabe: index & woerter
  551. 5600 zz=es
  552. 5610 ifzz=0thenprintleft$(dd$,7)spc(32)zz$(0);:goto5630
  553. 5620 printleft$(dd$,8+2*zz)spc(16)zz$(zz);
  554. 5630 print"[164]";
  555. 5640 geta$:ifa$=""then5640
  556. 5650 ifa$=chr$(13)then5760
  557. 5660 ifa$=chr$(20)then5840
  558. 5670 ifa$=chr$(19)then5800
  559. 5680 ifa$=chr$(141)then5780
  560. 5690 ifa$=chr$(133)then5890
  561. 5700 ifa$=chr$(134)then5860
  562. 5710 ifa$<" "ora$>"[218]"then5640
  563. 5720 ifa$>chr$(122)anda$<chr$(192)then5640
  564. 5730 ifzz(zz)=20then5640
  565. 5740 ifzz(zz)=5andzz=0then5640
  566. 5750 zz$(zz)=zz$(zz)+a$:zz(zz)=zz(zz)+1:print"[157]"a$"[164]";:goto5640
  567. 5760 zz=zz+1:ifzz=7thenzz=0+es
  568. 5770 print"[157] ":goto5610
  569. 5780 zz=zz-1:ifzz=-1+esthenzz=6
  570. 5790 print"[157] ":goto5610
  571. 5800 zz$(zz)="":zz(zz)=0
  572. 5810 ifzz=0thenprintleft$(dd$,7)spc(32)"[164]     ";:goto5610
  573. 5820 printleft$(dd$,8+2*zz)spc(16)"[164]                    ";:goto5610
  574. 5830 goto5640
  575. 5840 ifzz(zz)=0then5610
  576. 5850 zz$(zz)=left$(zz$(zz),zz(zz)-1):zz(zz)=zz(zz)-1:print"[157] ":goto5610
  577. 5860 ifes=2thenet=1
  578. 5870 fori=1+etto6:zz$(i)="":zz(i)=0:printleft$(dd$,8+2*i)spc(16);
  579. 5880 print"                    ":next:zz=0+es:et=0:goto5610
  580. 5890 ifes=1thenreturn
  581. 5900 fori=0to6:wo$(q1,i)=zz$(i):next:return
  582. 5910 :
  583. 5920 rem ** eingabe filename
  584. 5930 fl$="":printleft$(dd$,10)spc(16)"                     "
  585. 5940 printleft$(dd$,10)spc(16)fl$"[164]";
  586. 5950 geta$:ifa$=""then5950
  587. 5960 ifa$=chr$(19)then5930
  588. 5970 ifa$=chr$(20)then6040
  589. 5980 ifa$=chr$(13)thenprint"[157] ":return
  590. 5990 ifa$=chr$(34)then5950
  591. 6000 ifa$<" "ora$>"[218]"then5950
  592. 6010 ifa$>"_"anda$<"[193]"then5950
  593. 6020 iflen(fl$)=13+esthen5950
  594. 6030 fl$=fl$+a$:goto5940
  595. 6040 fl=len(fl$):iffl<2then5930
  596. 6050 fl$=left$(fl$,fl-1):print"[157][160]";:goto5940
  597. 6060 :
  598. 6070 rem ** eingabe kontrolle
  599. 6080 printll$"[198]ilename eingeben."
  600. 6090 gosub5920
  601. 6100 iffl$=""thenreturn
  602. 6110 printll$"[201]ndex eingeben."
  603. 6120 print"[145][154] + [146][155] 10 [197]inh. vor"tab(60)"[154] - [146][155] 1 [197]inh. vor"
  604. 6130 geta$:ifa$=""then6130
  605. 6140 ifa$="+"ora$="-"thenes=1:goto2070:es=0
  606. 6150 ifa$=chr$(13)thenprintll$:return
  607. 6160 goto6130
  608. 6170 :
  609. 6180 rem ** info-maske
  610. 6190 pokeba,11
  611. 6200 print"[147]"t1$t3$t5$t5$t4$t3$;:fori=1to17:printt5$;:next:printt4$t2$;
  612. 6210 poke2023,125
  613. 6220 return
  614. 6230 :
  615. 6240 rem ** sound
  616. 6250 pokesi+24,15:pokesi+5,11:pokesi+6,0:pokesi,0:pokesi+1,tt:pokesi+4,17
  617. 6260 return
  618. 6270 pokesi+24,15:pokesi+5,28:pokesi+6,0:pokesi,0:pokesi+1,2:pokesi+4,33:return
  619.